home *** CD-ROM | disk | FTP | other *** search
- : DOCDD
- skip_past_newline
- get_stuff_in_command kill_bogus_lines catstr
- ;
-
- : ENDDD
- skip_past_newline
- ;
-
- : EXAMPLE
- skip_past_newline
- get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments
- courierize catstr
-
- ;
-
- : INODE
- "@node " catstr skip_past_newline copy_past_newline catstr
- ;
-
- : CODE_FRAGMENT
- EXAMPLE
- ;
-
- : COMMENT
- skip_past_newline
- get_stuff_in_command
- drop
- ;
-
- : SYNOPSIS
- skip_past_newline
- "@strong{Synopsis}\n" catstr
- "@example\n" catstr
- get_stuff_in_command
- kill_bogus_lines
- indent
- catstr
- "@end example\n" catstr
-
- ;
-
- : func
- "@findex " - a
- skip_past_newline
- copy_past_newline
- dup - a x x
- "@subsubsection @code{" - a x x b
- swap
- remchar
- "}\n" - a x b x c
- catstr catstr catstr catstr catstr
- ;
-
- : FUNCTION
- "@findex " - a
- skip_past_newline
- copy_past_newline
- dup - a x x
- "@subsubsection @code{" - a x x b
- swap
- remchar
- "}\n" - a x b x c
- catstr catstr catstr catstr catstr
- ;
-
- : bodytext
- get_stuff_in_command
- bulletize
- kill_bogus_lines
- do_fancy_stuff
- courierize
- catstr
- "@*\n" catstr
- ;
-
- : asection
- skip_past_newline
- catstr
- copy_past_newline
- do_fancy_stuff catstr
- bodytext
- ;
-
- : SECTION
- "@section " asection ;
-
- : SUBSECTION
- "@subsection " asection ;
-
- : SUBSUBSECTION
- "@subsubsection " asection ;
-
- : subhead
- skip_past_newline
- bodytext
- ;
-
-
-
-
- : DESCRIPTION
- "@strong{Description}@*\n" catstr subhead ;
-
- : RETURNS
- "@strong{Returns}@*\n" catstr subhead ;
-
- : INTERNAL_FUNCTION
- func ;
-
-
- : INTERNAL_DEFINITION
- func ;
-
-
- : INTERNAL
- func ;
-
- : TYPEDEF
- FUNCTION ;
-
- : SENUM
- skip_past_newline
- "Here are the possible values for @code{enum "
- copy_past_newline remchar catstr
- "}:\n\n" catstr catstr
- ;
- : ENUM
- skip_past_newline
- "@deffn {} "
- copy_past_newline catstr catstr
- ;
- : ENUMX
- skip_past_newline
- "@deffnx {} "
- copy_past_newline catstr
- catstr
- ;
- : ENUMEQ
- skip_past_newline
- "@deffn {} "
- copy_past_newline catstr catstr
- skip_past_newline
- ;
- : ENUMEQX
- skip_past_newline
- "@deffnx {} "
- copy_past_newline catstr
- catstr
- skip_past_newline
- ;
- : ENUMDOC
- skip_past_newline
- get_stuff_in_command
- strip_trailing_newlines
- catstr
- "\n@end deffn\n" catstr
- ;
-